home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Ap-Az / AttyPhoneLog.cpt / Attorney's Phone Log / background_2639.txt < prev    next >
Text File  |  1988-01-24  |  2KB  |  101 lines
  1. -- background: 2639 from stack: in
  2. -- bmap block id: 3226
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 81
  10. -- high flags: 2001
  11. -- rect: left=304 top=86 right=336 bottom=508
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 12
  17. -- style flags: 256
  18. -- line height: 16
  19. -- part name: Copyright
  20. ----- HyperTalk script -----
  21. on Mouseup
  22.   hide field "Copyright"
  23. end Mouseup
  24.  
  25.  
  26.  
  27. -- part 2 (button)
  28. -- low flags: 00
  29. -- high flags: 8000
  30. -- rect: left=194 top=119 right=141 bottom=294
  31. -- title width / last selected line: 0
  32. -- icon id / first selected line: 0 / 0
  33. -- text alignment: 1
  34. -- font id: 0
  35. -- text size: 12
  36. -- style flags: 0
  37. -- line height: 16
  38. -- part name: New Call
  39. ----- HyperTalk script -----
  40. on mouseUp
  41.   visual effect iris open
  42.   set lockscreen to true
  43.   go to next card
  44.   domenu New Card
  45.   set lockscreen to false
  46. end mouseUp
  47.  
  48.  
  49.  
  50. -- part 3 (button)
  51. -- low flags: 00
  52. -- high flags: 8003
  53. -- rect: left=197 top=171 right=193 bottom=297
  54. -- title width / last selected line: 0
  55. -- icon id / first selected line: 0 / 0
  56. -- text alignment: 1
  57. -- font id: 0
  58. -- text size: 12
  59. -- style flags: 0
  60. -- line height: 16
  61. -- part name: Print Report
  62. ----- HyperTalk script -----
  63. on mouseUp
  64.   set lockScreen to true
  65.   go next card
  66.   doMenu Print Report...
  67.   ask "Do you wish to delete the Phone log cards from this stack" with "Yes"
  68.   if it <> "yes" then
  69.     go first card
  70.     exit MouseUp
  71.   end if
  72.   get the number of cards
  73.   repeat (it - 2) times
  74.     go last card
  75.     doMenu Delete Card
  76.   end repeat
  77.   set lockScreen to false
  78. end mouseUp
  79.  
  80.  
  81.  
  82. -- part 4 (button)
  83. -- low flags: 00
  84. -- high flags: 8003
  85. -- rect: left=198 top=225 right=247 bottom=298
  86. -- title width / last selected line: 0
  87. -- icon id / first selected line: 0 / 0
  88. -- text alignment: 1
  89. -- font id: 0
  90. -- text size: 12
  91. -- style flags: 0
  92. -- line height: 16
  93. -- part name: Home
  94. ----- HyperTalk script -----
  95. on mouseUp
  96.   visual effect zoom close
  97.   push card
  98.   go home
  99. end mouseUp
  100.  
  101.